home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1985 December
/
Ahoy_Magazine_85-12_1985_Double_L.d64
/
santa's busy day
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
4KB
|
66 lines
10 rem santa's busy day
20 rem george trepal
30 rem 2650 alturas road
40 rem bartow, fl 33830
50 print"[147] do you want an <e>asy or a <r>egular"
55 print" game?"
60 geta$: ifa$<>"" then 60
70 geta$:if a$="" then 70
80 if a$="e" then poke 828,1
90 c=896: ct=44: poke53280,0
100 read d$: l=len(d$): print "[147]"spc(8)"counting down to zero ";
105 ct=ct-1: print ct: poke 53281,ct
110 for j=1tol step2: m$=mid$(d$,j,2)
120 h$=left$(m$,1): l$=right$(m$,1)
130 h=asc(h$)-48: ifh>10 then h=h-7
140 l=asc(l$)-48: ifl>10 then l=l-7
150 p=h*16+l:if p>255 then 200
155 poke c,p: c=c+1
160 next:goto100
200 if c<1000 then c=49152: goto 100
210 sys49160
896 data 00150000aa8002aaa009555806aaa40a596806fbe405eb94055554016a500159
928 data 500255600a95a82aa6aa2aaaaa29aa9a19aa9915aa95156a55055554015550zz
49152 data 0100d8ffffff2800a9008d49038d4c0385fba90c85fca000a92091fbc8d0fbe6
49184 data fca5fcc99fd0f1a9568d4303a95185fba92885fda91285fc85fea99320d2ffa2
49216 data 00a000ad430391fdc8c027d0f918a5fd692885fd9002e6fee8e051d0e4a000a9
49248 data 0491fba9ff8d0fd4a9808d12d4ad1bd4290385adaa0aa818b900c065fb85aab9
49280 data 01c065fc85ab18b900c065aa85fdb901c065ab85fea000b1fdcd4303d0128a91
49312 data fda92091aaa5fd85fba5fe85fc4c63c0e88a2903c5add0bcb1fbaaa92091fbe0
49344 data 04f01a8a0aa8a20238a5fbf900c085fba5fcf901c085fccad0ee4c63c0a90f8d
49376 data 48038502a9068d20d08d21d020f2c04c10c1a502a0009900d89900d99900da99
49408 data 00dbc8d0f1a228a90d9dc0dbcad0fa60ad43038d4f128dcf1ea9208d76128d50
49440 data 128d801e8da61ea90085fb8d3f03a9ff85fda91285fca92385fea000a20018a5
49472 data fd690185fda5fe690085feb1fb91fd18a5fd697885fda5fe690085feb1fb91fd
49504 data 18a5fd697885fda5fe690085feb1fb91fd38a5fde9f085fda5fee90085fee8e0
49536 data 03d0bbee3f03ad3f03c928d01218a5fd69f085fda5fe690085fea9008d3f0318
49568 data a5fb690185fba5fc690085fca5fcc920d08aa5fbc900d084a9a08d4203a9ff8d
49600 data 0fd4a9808d1bd4a2d2a000ad1bd4c92730f9c99010f585fcad1bd485fbb1fbcd
49632 data 4303f0e7ad420391fbcad0dfad4203c953f00aa9538d4203a2024ccbc1a204a9
49664 data 309dc107cad0fa200dc24c1dc2a220a95b9dc707cad0faa9018d4f0360a9988d
49696 data 4403a9218d4503a9008d4603a90f8d18d4a9018d1cd08d15d0a9b08d00d0a98c
49728 data 8d01d0a9028d27d0a90e8df807a9018d25d0a90a8d26d0ad00dc290f8d4003ce
49760 data 4603ad4603c900d012a9008d04d4ad4803850220f2c0a9068d20d038a90fed40
49792 data 038d4003c900f0038d4d03ad3c03c901d006ad40038d4d03ad4d03c901d0034c
49824 data bac2c902d0034ce1c2c904d0034c08c3c908f0034c53c34c2fc3adcc058d4103
49856 data cd4303d008a9028d4d034c53c338ad4403e9788d4403ad4503e9008d45034c53
49888 data c3ad1c068d4103cd4303d008a9018d4d034c53c318ad440369788d4403ad4503
49920 data 69008d45034c53c3adf3058d4103cd4303d008a9088d4d034c53c338ad4403e9
49952 data 018d4403ad4503e9008d45034c53c3adf5058d4103cd4303d008a9048d4d034c
49984 data 53c318ad440369018d4403ad450369008d4503a90085fda90485fea9008d4e03
50016 data 8d4703ad440385fbad450385fca000b1fb91fd18a5fb690185fba5fc690085fc
50048 data 18a5fd690185fda5fe690085feee4703ad4703c928d012a9008d470318a5fb69
50080 data 5085fba5fc690085fce8d0c3ee4e03ad4e03c904d0034cc2c3c903d0b2a2684c
50112 data 6fc3ad4103cd4303d026a90885028d20d020f2c0a9088d05d4a9818d04d4a919
50144 data 8d01d4a90a8d4903a9028d4603ee4f03ad4103c9a0d01ea90785028d20d020f2
50176 data c0a9018d4b03a90f8d05d4a9118d04d4a9058d4603ad4103c953d026a9008502
50208 data 20f2c0a90f8d05d4a9218d04d4a9048d4603a280a000ee21d0c8d0fae8d0f720
50240 data 0dc2ad4903c900f017a90f8d2c05a9158d5405a9038d7c05a9088da405ce4903
50272 data 18ad440369b485fbad4503690585fca92091fb8d4103ad4b03c901d049a9008d
50304 data 4b03a9008d4a0318adc4076901c93af0068dc4074ca1c4a9308dc407a9018d4a
50336 data 03a20218bdc1076d4a03c93af00b9dc107a9008d4a034cc3c4a9309dc107a901
50368 data 8d4a03cad0ddee4c03ad4c03c900d003ee4f03ad4f03aaa9a09dc707cad0f8ad
50400 data c207c932d0034cf3c4ad4f03c920d0484cf3c4a9008d04d48d15d0a90f8df305
50432 data a9168df405a9058df505a9128df605a9028502a9008d21d020f2c0a9018df3d9
50464 data 8df4d98df5d98df6d9a5c5c940d0faa5c5c940f0fa4c08c04c57c250zz